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: File: RPGDEF.REQ, Edit:LPT1015 
i 
PITIITITITITIIITITITIT ITIL IIL TLI LILI LILiLiLiTiLitiii tii iiiiritiiiiiit iii 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


ie ee SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corteD 
:¢ hy IN ACCORDANCE WITH THE TERMS OF SUCH of Gane’ o oe > HE 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* CORPORATION, 


Hed ori AL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: VAX RPG II 
ABSTRACT: 
This is a common definition file for VAX RPG II. ALL definitions 
of data structures that must be known by pe compiler and the 
generates code and RTL support should aw! sas lagees here. 
his file should be required in COMLIB.R 
ENVIRONMENT: VAX/VMS user mode 


AUTHOR: D. Braffitt, CREATION DATE: 12-Nov-1982 


MODIFIED BY: 
1-001 Original DJB 12-Nov-1983 
1 Add RPGSL_ CTX_ERROR LPT 14-Feb-1983 
1-00 Add program control block macros LPT 18-Mar-1983 
1-004 Add A oeht ERR_SUBSC LPT 24-Mar-1983 
1-005 Adds t fo ; record control/sequence check 
blocks: "add RPGSIOEX XCEPTION error location 

add current CTX area | DJB [i~for=138 
1-006 ReGss. at =bainten should be 32. DJB 12-Apr-19 
1-007 Add RPG$v- DJB 14-Apr-198 
1-00 change ° RPGSA ace. EXTFL to RPGSA_RCB_EXTFLD LPT sp -hor~ 138 
1- Add RPG$vV_RCB_MATC LPT p-dun=13 
1-010 Fix offset” of some RCB fields LPT 10-Jun-198 


—z 
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Add RPGSV_RCB_CNTRLF 

Add RPG$V_CTX_OVPEND 

Correct PRINTER context area offsets 
d RPG$B ty FLAGS 

Delete RPGSA_CTX_MATCHAREA 


i Definitions for the RPG II file context area. 


! Thi 


: depends on the file type. 


MACRO 


RPGSW_CTX_FLAGS= 
RPGSV~CTX—UOF F = 


RPGSV_CTX_EOF= 
RPGSV~CTX~LOOKAH= 


RPGSV_CTX_RNF= 
RPG$B_CTX_ID= 
RPGSL ~CTX~ERROR= 
RPGSA_CTX_SCB= 


RPGSA_CTX_READ= 
RPGSA_CTX~CRCB= 


RPGSA_CTX_OVIND= 
RPG$W_CTX_FL= 
RPG$W_CTX_OL= 
RPGSV_CTX~SIRST= 
RPG$V_CTX_ 1PFORMS= 
RPG$V_CTX_OVLINE= 
RPG$V_CTX_OVPEND= 
RPG$W_CTX~SKIPB= 
RPG$SW_CTX_SKIPA= 
RPG$W_CTX_SPACEB= 


RPG$W_CTX_SPACEA= 


LITERAL 


RPGSK_CTX_ID= 
RPG$S_CTX~OUTPUT= 


oOo 
>. 
— 


7 .* 


res 


. 
s+ = 


. 
. 
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1 
1 
1 
2 
-2 
2 
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oo oC +s se 
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<a 


"33°07 16-0'&, 
=24,0,16,0 %, 
-26,0,16,0 %, 
-28,0,16,0 %; 


a 
s area is allocated in PSECT SLOCAL by the compiler 
! for each file immediately preceding the 


AB. The actual size allocated 


ate bits 

TRUE only if file is conditioned 

by an external indicator which is off 
TRUE only if file is at end of file 
RUE only if file is an input file 
which contains look-ahead fields 


TRUE only if Last attempt to read from 
file resulted in record not found 

Version number 

Error number for RPG detected errors 

Address of current entry in the 
sequence control block 

Address of the READ routine 

Address of the current record control 


oc 

Address of the overflow indicator for 

this PRINTER fil 
# of Lines on sop ical page (1-112) 
Overflow line # (1-112 

Current Line on printed page 
Flags for print control ; 
efore first write to file 


spon ts toning has been requested 


TRUE if overflow is pending 
# of_lines to space before printing 


.. f pines to space after printing 


Lipe oynber to skip to before printing 
Line number to skip after printing 
(1-112) 


Current CTX area id 

Size of context area for output files 
Size of context area for printer files 
Size of context area for input and 
update files 


14 


MACRO 


A $A. 
RPG$V_ 
RPGSA_ 
RPGSB_ 


RPGS$V_ 
RPG$V_ 


LITERAL 
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RPGSV_ 
RPGSV_ 


oO 
ow 
» 
m 
a0 


FR= 


RCB. 
RPG$W_RCB_ -fLAGS= 
RPGSV_RCB_ ~pfor 


MATCH= 


SCB_RCB= 
SCB_FLAGS= 
SCB_OPT= 
SCB_NO= 
SCB_1SEEN= 


SCB_LAST= 


RPGSS -RCB= 
RPG$S_SCB= 


RPG$V_RCB_CNTRLF= 


allocated 


PSECT $ 


N 
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it bpd for the RPG file record. ares and segeenee check blocks. 
t area is 
a for each input and wpaete file tanetines 


by the comp 
y following the record buffer. 


Addr of record identifying indicator 
Addr of extract field routine 

Addr of match field compare and 
extract code 

Addr of control field compare routine 
Record control block flag bits 

TRUE if record type is seq checked 
TRUE if record type has match fields 
TRUE if record type has control fields 


Address of the RCB of the record which 
is the current record in the sequence 
pequence control block es bits 
RUE if record type is optional 
— if more than one of this record 
type may be present 
> if one of the current record type 
as been seend 
TRUE if this is the end of the table 
and RPG$A_SCB_RCB contains the 
address of the 1st element in the SCB 


Size of record control block 
Size of sequence check block 


P, 
S' 
P 
S$ 
Pp 
C 
A 
T 
1 

T 
1 

0 
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! Definitions for RPG error a 

! The address of the program control block is found in RPGS$A_PCB 
! which is found offset from the frame pointer. 

! For version 1, the only field in the program control block 

: is the internal version number. 


ACRO 
RPG$A_PCB= -4,0,32,0 %, ! Address of program control block 
RPG$B_PCB_ID= 0.0.8.0 %;° | Version number 


1+ 
! Definitions of first parameter to RPGSIOEXCEPTION to describe where 
! to find 10 error. 


'¢ 
Definition of Literal for error passed to RPGSERROR 


LITERAL 
RPG$K_ERR_SUBSC= $3 ‘ ! Same as COBOL for now 


RPGSK_ERR_RAB= 1» ! Condition value in RAB field 
RPGS$K_ERR_F AB= ¢: ! Condition value in FAB field 
RPGSK_ERR_FILE_CNTXT= ; ! Condition value in file context area 
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